home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / amoked / macros / renumcomproc.aed < prev    next >
Encoding:
Text File  |  1997-02-16  |  268 b   |  13 lines
  1. /* neu numerieren der Coms[..] */
  2.  
  3. options results
  4. 'noscrupdate top first find (NumComs) wright scanf %[~;]'
  5. 'getval $scanf'
  6. num = result
  7.  
  8. 'find (InitComNames) findstr (Coms[)'
  9. do i = 0 to num
  10.   'noscrupdate next repeat 5 right if cn (while !c=93 del ('||i||'))'
  11. end
  12.  
  13.